home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / Afc / Localer_Example1.e < prev    next >
Text File  |  1997-09-09  |  520b  |  36 lines
  1. /*
  2.  
  3.   Localer Example 1 - (C)Copyright Amiga Foundation Classes
  4.  
  5.   Written By:   Fabio Rotondo
  6.  
  7.   Public Domain Source
  8.  
  9. */
  10.  
  11. MODULE 'afc/localer'
  12.  
  13. PROC main()
  14.   DEF loc:PTR TO localer
  15.  
  16.   NEW loc.localer()
  17.  
  18.   WriteF('System Language:\s\n', loc.language())
  19.  
  20. /*
  21.  
  22.   Since we don't have any ".catalog" provided with this
  23.   example, the loading will fail AND the get() method
  24.   will RETURN DEFAULT messages
  25.  
  26. */
  27.  
  28.   loc.load('test.catalog')
  29.  
  30.  
  31.   WriteF('\s - \s\n', loc.get(0, 'Test'), loc.get(1, 'Message!'))
  32.  
  33.   END loc
  34. ENDPROC
  35.  
  36.